;;;;;;;;֤TAC

<--! %s_sjlstk = 57415443484441544154696D65434F53
;<--! %sn1 = 8688000000000001
;ȡɢ
reset
compsta 90 00
<--! %sn1 = @STRMIDH(%RESP,@strlen(%RESP)-8,8)

;DTK01DF04
<--! %keyid=0125
B060 000000000000FFFF %keyid 0201 01 %sn1
<--! %sdata = @STRMIDH(%RESP,9,16)
<--! %sDTK01DF04 = @desjs(%s_sjlstk,%sdata,1)

<--! %sDTK01DF04 = DE06E3B3D5ED1A546ECEEE80FCE862CA

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ҽƻ뽻TAC
;
b0 26 00 01 04
<--! %balcia=@strmidh(%resp,0,4)
;
<--! %termno = 0003
<--! %transtime=20120811 165830
<--! %jyje1=00000200
<--! %Terminal_No=FFFFFFFFFFFF
;ҽƱո˻+뽻(1ǰ)+׽++ն˻+ʱ
<--! %tacdata=%balcia + %termno + %jyje1 + 31+ %Terminal_No + %transtime
<--! %loadtac=@xortac(%sDTK01DF04,%tacdata)
;TAC
<--! %slotac=E600CDF2
;;;TACȷ
<--! if %slotac == %loadtac
stop
<--! endif

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ҽѽTAC
<--! %transTime=20120805 105301
;CIA_AMT ʻ֧
<--! %sCIA_AMT = 00000001
;SPIP_AMT  Ը
<--! %SPIP_AMT = 00000000
;ͳ֧
<--! %SPFP_AMT = 00000000
;ն˻
<--! %Terminal_No = 010203040506
;//ն˽(ն)
<--! %Ter_Trx_no = 00000001

;˻׽+Ը+ͳ֧++ն˻+ն˽+ʱ
<--! %tacdata=%sCIA_AMT + %SPIP_AMT +%SPFP_AMT + 32 + %Terminal_No +%Ter_Trx_no+%transTime
<--! %spurchtac=@xortac(%sDTK01DF04,%tacdata)
<--! %sputac=52BD997F
;;;TACȷ
<--! if %sputac == %spurchtac
stop
<--! endif



